home *** CD-ROM | disk | FTP | other *** search
/ PC Users 8 / Cd Pc Users extra 8.iso / prog / inst / listx / setup.exe / 3DFX4.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1997-11-12  |  9.9 KB  |  306 lines
  1. VERSION 5.00
  2. Object = "{9FE255D1-F32E-11D0-9E15-444553540000}#1.0#0"; "MLISTX.OCX"
  3. Begin VB.Form frmThreedFX 
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   5835
  6.    ClientLeft      =   2685
  7.    ClientTop       =   4155
  8.    ClientWidth     =   7830
  9.    ControlBox      =   0   'False
  10.    Icon            =   "3dfx4.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    MinButton       =   0   'False
  15.    PaletteMode     =   1  'UseZOrder
  16.    ScaleHeight     =   5835
  17.    ScaleWidth      =   7830
  18.    ShowInTaskbar   =   0   'False
  19.    Begin VB.Frame Frame3 
  20.       Caption         =   "List"
  21.       Height          =   1935
  22.       Left            =   5685
  23.       TabIndex        =   17
  24.       Top             =   840
  25.       Width           =   1245
  26.       Begin VB.OptionButton optListEffect 
  27.          Caption         =   "Inset"
  28.          Height          =   240
  29.          Index           =   6
  30.          Left            =   150
  31.          TabIndex        =   24
  32.          Top             =   1530
  33.          Width           =   900
  34.       End
  35.       Begin VB.OptionButton optListEffect 
  36.          Caption         =   "Shadow"
  37.          Height          =   240
  38.          Index           =   5
  39.          Left            =   150
  40.          TabIndex        =   23
  41.          Top             =   1320
  42.          Width           =   900
  43.       End
  44.       Begin VB.OptionButton optListEffect 
  45.          Caption         =   "Drop"
  46.          Height          =   240
  47.          Index           =   4
  48.          Left            =   150
  49.          TabIndex        =   22
  50.          Top             =   1095
  51.          Width           =   900
  52.       End
  53.       Begin VB.OptionButton optListEffect 
  54.          Caption         =   "Pop"
  55.          Height          =   240
  56.          Index           =   3
  57.          Left            =   150
  58.          TabIndex        =   21
  59.          Top             =   885
  60.          Width           =   900
  61.       End
  62.       Begin VB.OptionButton optListEffect 
  63.          Caption         =   "Raised"
  64.          Height          =   240
  65.          Index           =   2
  66.          Left            =   150
  67.          TabIndex        =   20
  68.          Top             =   675
  69.          Width           =   900
  70.       End
  71.       Begin VB.OptionButton optListEffect 
  72.          Caption         =   "Line"
  73.          Height          =   240
  74.          Index           =   1
  75.          Left            =   150
  76.          TabIndex        =   19
  77.          Top             =   465
  78.          Width           =   900
  79.       End
  80.       Begin VB.OptionButton optListEffect 
  81.          Caption         =   "None"
  82.          Height          =   255
  83.          Index           =   0
  84.          Left            =   150
  85.          TabIndex        =   18
  86.          Top             =   240
  87.          Width           =   900
  88.       End
  89.    End
  90.    Begin VB.Frame Frame2 
  91.       Caption         =   "Heading"
  92.       Height          =   1935
  93.       Left            =   4320
  94.       TabIndex        =   9
  95.       Top             =   840
  96.       Width           =   1245
  97.       Begin VB.OptionButton optHeadingEffect 
  98.          Caption         =   "None"
  99.          Height          =   255
  100.          Index           =   0
  101.          Left            =   150
  102.          TabIndex        =   16
  103.          Top             =   240
  104.          Width           =   900
  105.       End
  106.       Begin VB.OptionButton optHeadingEffect 
  107.          Caption         =   "Line"
  108.          Height          =   240
  109.          Index           =   1
  110.          Left            =   150
  111.          TabIndex        =   15
  112.          Top             =   465
  113.          Width           =   900
  114.       End
  115.       Begin VB.OptionButton optHeadingEffect 
  116.          Caption         =   "Raised"
  117.          Height          =   240
  118.          Index           =   2
  119.          Left            =   150
  120.          TabIndex        =   14
  121.          Top             =   675
  122.          Width           =   900
  123.       End
  124.       Begin VB.OptionButton optHeadingEffect 
  125.          Caption         =   "Pop"
  126.          Height          =   240
  127.          Index           =   3
  128.          Left            =   150
  129.          TabIndex        =   13
  130.          Top             =   885
  131.          Width           =   900
  132.       End
  133.       Begin VB.OptionButton optHeadingEffect 
  134.          Caption         =   "Drop"
  135.          Height          =   240
  136.          Index           =   4
  137.          Left            =   150
  138.          TabIndex        =   12
  139.          Top             =   1095
  140.          Width           =   900
  141.       End
  142.       Begin VB.OptionButton optHeadingEffect 
  143.          Caption         =   "Shadow"
  144.          Height          =   240
  145.          Index           =   5
  146.          Left            =   150
  147.          TabIndex        =   11
  148.          Top             =   1320
  149.          Width           =   900
  150.       End
  151.       Begin VB.OptionButton optHeadingEffect 
  152.          Caption         =   "Inset"
  153.          Height          =   240
  154.          Index           =   6
  155.          Left            =   150
  156.          TabIndex        =   10
  157.          Top             =   1530
  158.          Width           =   900
  159.       End
  160.    End
  161.    Begin VB.Frame Frame1 
  162.       Caption         =   "Caption"
  163.       Height          =   1935
  164.       Left            =   2940
  165.       TabIndex        =   1
  166.       Top             =   840
  167.       Width           =   1245
  168.       Begin VB.OptionButton optCaptionEffect 
  169.          Caption         =   "Inset"
  170.          Height          =   240
  171.          Index           =   6
  172.          Left            =   150
  173.          TabIndex        =   8
  174.          Top             =   1530
  175.          Width           =   900
  176.       End
  177.       Begin VB.OptionButton optCaptionEffect 
  178.          Caption         =   "Shadow"
  179.          Height          =   240
  180.          Index           =   5
  181.          Left            =   150
  182.          TabIndex        =   7
  183.          Top             =   1320
  184.          Width           =   900
  185.       End
  186.       Begin VB.OptionButton optCaptionEffect 
  187.          Caption         =   "Drop"
  188.          Height          =   240
  189.          Index           =   4
  190.          Left            =   150
  191.          TabIndex        =   6
  192.          Top             =   1095
  193.          Width           =   900
  194.       End
  195.       Begin VB.OptionButton optCaptionEffect 
  196.          Caption         =   "Pop"
  197.          Height          =   240
  198.          Index           =   3
  199.          Left            =   150
  200.          TabIndex        =   5
  201.          Top             =   885
  202.          Width           =   900
  203.       End
  204.       Begin VB.OptionButton optCaptionEffect 
  205.          Caption         =   "Raised"
  206.          Height          =   240
  207.          Index           =   2
  208.          Left            =   150
  209.          TabIndex        =   4
  210.          Top             =   675
  211.          Width           =   900
  212.       End
  213.       Begin VB.OptionButton optCaptionEffect 
  214.          Caption         =   "Line"
  215.          Height          =   240
  216.          Index           =   1
  217.          Left            =   150
  218.          TabIndex        =   3
  219.          Top             =   465
  220.          Width           =   900
  221.       End
  222.       Begin VB.OptionButton optCaptionEffect 
  223.          Caption         =   "None"
  224.          Height          =   255
  225.          Index           =   0
  226.          Left            =   150
  227.          TabIndex        =   2
  228.          Top             =   240
  229.          Width           =   900
  230.       End
  231.    End
  232.    Begin MabryCtl.MList MList1 
  233.       Height          =   2490
  234.       Left            =   360
  235.       TabIndex        =   0
  236.       Top             =   360
  237.       Width           =   2175
  238.       _ExtentX        =   3836
  239.       _ExtentY        =   4392
  240.       Caption         =   "Caption"
  241.       Object.TabStop         =   -1  'True
  242.       ThreedShadowColor=   -2147483627
  243.       MousePointer    =   -842150451
  244.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  245.          Name            =   "MS Sans Serif"
  246.          Size            =   8.25
  247.          Charset         =   0
  248.          Weight          =   400
  249.          Underline       =   0   'False
  250.          Italic          =   0   'False
  251.          Strikethrough   =   0   'False
  252.       EndProperty
  253.       BeginProperty Columns {23BAA6DE-05A6-11D1-9E15-0020AFD6A9D5} 
  254.          ColumnCount     =   1
  255.          BeginProperty Column0 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  256.             Object.Width           =   50
  257.             MinWidth        =   0
  258.             MaxWidth        =   -1
  259.             UserResizeEnabled=   -1
  260.             Heading         =   "Column 1"
  261.             Object.Visible         =   -1
  262.             ColumnAlignment =   0
  263.             HeadingAlignment=   0
  264.          EndProperty
  265.       EndProperty
  266.    End
  267.    Begin VB.Label Label1 
  268.       Alignment       =   2  'Center
  269.       Caption         =   "Try different combinations of border effects.  Some will look better than others!"
  270.       BeginProperty Font 
  271.          Name            =   "MS Sans Serif"
  272.          Size            =   9.75
  273.          Charset         =   0
  274.          Weight          =   400
  275.          Underline       =   0   'False
  276.          Italic          =   0   'False
  277.          Strikethrough   =   0   'False
  278.       EndProperty
  279.       Height          =   510
  280.       Left            =   2925
  281.       TabIndex        =   25
  282.       Top             =   270
  283.       Width           =   3840
  284.    End
  285. Attribute VB_Name = "frmThreedFX"
  286. Attribute VB_GlobalNameSpace = False
  287. Attribute VB_Creatable = False
  288. Attribute VB_PredeclaredId = True
  289. Attribute VB_Exposed = False
  290. Option Explicit
  291. Private Sub Form_Load()
  292.    MList1.AddItem "MlistX"
  293.    optCaptionEffect(MList1.CaptionBorderEffect) = True
  294.    optHeadingEffect(MList1.HeadingsBorderEffect) = True
  295.    optListEffect(MList1.ListBorderEffect) = True
  296. End Sub
  297. Private Sub optCaptionEffect_Click(Index As Integer)
  298.    MList1.CaptionBorderEffect = Index
  299. End Sub
  300. Private Sub optHeadingEffect_Click(Index As Integer)
  301.    MList1.HeadingsBorderEffect = Index
  302. End Sub
  303. Private Sub optListEffect_Click(Index As Integer)
  304.    MList1.ListBorderEffect = Index
  305. End Sub
  306.